home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / englis~1.lzh / LIBRARYS / AES_VDI.S next >
Encoding:
Text File  |  1986-07-25  |  17.7 KB  |  538 lines
  1. ;************************************************************************
  2. ;* Σ-soft GEM-lib                            *
  3. ;* ©1989/90 Σ-soft, written by Markus Fritze           18.01.1990 13:27 *
  4. ;************************************************************************
  5. ;************************************************************************
  6. ;* global vars:                             *
  7. ;************************************************************************
  8. _StackSize    EQU 1024    ;1k stack for the program
  9.  
  10. ;************************************************************************
  11. ;* init of the library (GEMDOS & AES)                    *
  12. ;************************************************************************
  13. _gem_init:    movea.l 4(SP),A6    ;get basepageadr
  14.         movea.w #$0100+_StackSize,A5 ;size of basepage + stacksize
  15.         adda.l    12(A6),A5    ;+ size of TEXT-segment
  16.         adda.l    20(A6),A5    ;+ size of DATA-segment
  17.         adda.l    28(A6),A5    ;+ size of BSS-segment
  18.         move.l    A5,D1        ;= size of the program
  19.         and.b    #$FE,D1     ;EVEN
  20.         add.l    A6,D1        ;+ basepageadr
  21.         movea.l D1,SP        ;top of the stackarea
  22.         move.l    A5,-(SP)    ;prgsize
  23.         move.l    A6,-(SP)    ;basepageadr
  24.         move.l    A6,basepage    ;save it
  25.         move.l    #$4A0000,-(SP)    ;
  26.         trap    #1        ;Mshrink(0,basepageadr,prgsize)
  27.         lea    12(SP),SP
  28.  
  29.         move.l    #appl_init,D0
  30.         bsr    _aes
  31.         move.w    D0,ap_id
  32.         moveq    #-1,D7        ;-1: appl_init() error
  33.         addq.w    #1,D0
  34.         beq    _pterm        ;no ID for the program => exit
  35.  
  36.         move.l    #graf_handle,D0
  37.         bsr    _aes        ;get vdi-handle
  38.         move.w    D0,vdi_handle
  39.         movem.w int_out+2(PC),D1-D4
  40.         movem.w D1-D4,gr_hwchar
  41.  
  42.         lea    int_in(PC),A0
  43.         movea.l A0,A1
  44.         moveq    #10,D0
  45. _gem_init2:    move.w    #1,(A0)+    ;1,1,1,1,1,1,1,1,1,1,2
  46.         dbra    D0,_gem_init2
  47.         addq.w    #1,-(A0)
  48.         move.l    #v_opnvwk,D0
  49.         bsr    _vdi        ;open workstation
  50.         moveq    #-39,D7     ;-39: no memory for the VDI-workstation
  51.         move.w    12+control(PC),vdi_handle
  52.         beq    _do_pterm    ;=> exit
  53.  
  54. ;************************************************************************
  55. ;* the main part starts here                        *
  56. ;* D0: the exit-code of the program                    *
  57. ;************************************************************************
  58.  
  59.  
  60. ;************************************************************************
  61. ;* program exit                             *
  62. ;************************************************************************
  63. _gem_exit:    move.w    D0,D7        ;save exit-status
  64.  
  65.         moveq    #v_clsvwk,D0
  66.         bsr    _vdi        ;close workstation
  67.  
  68. _do_pterm:    move.l    #appl_exit,D0
  69.         bsr    _aes        ;close applikation
  70.  
  71. _pterm:     move.w    D7,-(SP)    ;exit-status
  72.         move.w    #$4C,-(SP)
  73.         trap    #1        ;Pterm(exit-status)
  74.  
  75. ;************************************************************************
  76. ;* my own AES-call                            *
  77. ;* D0=the first 4 entries of the control-array (4 bytes!)        *
  78. ;*    bit 24-31 = functioncode                        *
  79. ;*    bit 16-23 = entries in int_in                    *
  80. ;*    bit 8-15    = entries in int_out                    *
  81. ;*    bit 0-7    = entries in addr_in                    *
  82. ;************************************************************************
  83. _aes:        movem.l D1-A6,-(SP)    ;save all regs
  84.         lea    control(PC),A0
  85.         clr.l    (A0)+
  86.         clr.l    (A0)+        ;clear control-array
  87.         clr.w    (A0)
  88.         movep.l D0,-7(A0)    ;insert the new datas
  89.         cmpi.b    #112,-7(A0)    ;rsrc_gaddr()-Call?
  90.         bne.s    _aes1        ;no! =>
  91.         move.b    #1,1(A0)    ;entries in addr_out=1
  92. _aes1:        lea    _aes_pb(PC),A0
  93.         move.l    A0,D1
  94.         move.w    #200,D0
  95.         trap    #2        ;call the AES
  96.         moveq    #0,D0
  97.         move.w    int_out(PC),D0    ;int_out[0]
  98.         movem.l (SP)+,D1-A6    ;restore all regs
  99.         rts
  100.  
  101. _aes_pb:    DC.L control    ;the AES-parameterblock
  102.         DC.L global
  103.         DC.L int_in
  104.         DC.L int_out
  105.         DC.L addr_in
  106.         DC.L addr_out
  107.  
  108. ;************************************************************************
  109. ;* my own VDI-Call                            *
  110. ;* D0 = the input-parameter                        *
  111. ;*    Bit 24-31 = functioncode                    *
  112. ;*    Bit 16-23 = size of the intin-array                *
  113. ;*    Bit 8-15  = ID of the sub-opcode                *
  114. ;*    Bit 0-7   = size of ptsin                    *
  115. ;* the workstation is "gr_handle"                    *
  116. ;************************************************************************
  117. _vdi:        movem.l D1-A6,-(SP)
  118.         lea    control+2(PC),A0
  119.         clr.w    (A0)+        ;clear all parameter
  120.         clr.l    (A0)+
  121.         clr.w    (A0)
  122.         move.l    D0,-(SP)
  123.         tst.b    (SP)        ;no opcode? => short format
  124.         addq.l    #4,SP
  125.         bne.s    _vdi1
  126.         move.b    D0,1-8(A0)    ;opcode in bit 0-7
  127.         bra.s    _vdi2        ;thats all =>
  128. _vdi1:        move.b    D0,3-8(A0)    ;size of the ptsin-array
  129.         lsr.w    #8,D0
  130.         move.w    D0,10-8(A0)    ;the sub-opcode
  131.         swap    D0
  132.         move.b    D0,7-8(A0)    ;size of the intin-array
  133.         lsr.w    #8,D0
  134.         move.w    D0,0-8(A0)    ;the opcode
  135. _vdi2:        move.w    vdi_handle(PC),12-8(A0) ;VDI-handle
  136.         lea    _vdi_pb(PC),A0
  137.         move.l    A0,D1
  138.         moveq    #$73,D0
  139.         trap    #2
  140.         moveq    #0,D0
  141.         move.w    int_out(PC),D0    ;int_out[0]
  142.         movem.l (SP)+,D1-A6
  143.         rts
  144.  
  145. _vdi_pb:    DC.L control    ;the VDI-parameterblock
  146.         DC.L int_in
  147.         DC.L ptsin
  148.         DC.L int_out
  149.         DC.L ptsout
  150.  
  151. ;************************************************************************
  152. ;* the BSS-area                             *
  153. ;************************************************************************
  154.         BSS
  155. basepage:    DS.L 1        ;basepageadr
  156. control:    DS.W 16
  157. global:     DS.W 15     ;AES-Arrays
  158. addr_in:    DS.L 3
  159. addr_out:    DS.L 1
  160. int_in:     DS.W 128
  161. int_out:    DS.W 128    ;VDI-Arrays
  162. ptsin:        DS.W 128
  163. ptsout:     DS.W 128
  164. ap_id:        DS.W 1        ;applikation-ID
  165. vdi_handle:    DS.W 1        ;VDI-handle
  166. gr_hwchar:    DS.W 1        ;graf_handle() parameter
  167. gr_hhchar:    DS.W 1
  168. gr_hwbox:    DS.W 1
  169. gr_hhbox:    DS.W 1
  170.  
  171.         >PART 'AES/VDI-Library-EQUs'
  172. ;************************************************************************
  173. ;* the AES-"library"                            *
  174. ;************************************************************************
  175. appl_init    EQU $0A000100
  176. appl_read    EQU $0B020101
  177. appl_write    EQU $0C020101
  178. appl_find    EQU $0D000101
  179. appl_tplay    EQU $0E020101
  180. appl_trecord    EQU $0F010101
  181. appl_bvset    EQU $10020100    ;GEM 2.0
  182. appl_yield    EQU $11000100    ;GEM 2.0
  183. appl_exit    EQU $13000100
  184.  
  185. evnt_keybd    EQU $14000100
  186. evnt_button    EQU $15030500
  187. evnt_mouse    EQU $16050500
  188. evnt_mesag    EQU $17000101
  189. evnt_timer    EQU $18020100
  190. evnt_multi    EQU $19100701
  191. evnt_dclick    EQU $1A020100
  192.  
  193. menu_bar    EQU $1E010101
  194. menu_icheck    EQU $1F020101
  195. menu_ienable    EQU $20020101
  196. menu_tnormal    EQU $21020101
  197. menu_text    EQU $22010102
  198. menu_register    EQU $23010101
  199. menu_unregister EQU $24010100    ;GEM 2.0
  200.  
  201. objc_add    EQU $28020101
  202. objc_delete    EQU $29010101
  203. objc_draw    EQU $2A060101
  204. objc_find    EQU $2B040101
  205. objc_offset    EQU $2C010301
  206. objc_order    EQU $2D020101
  207. objc_edit    EQU $2E040201
  208. objc_change    EQU $2F080101
  209.  
  210. form_do     EQU $32010101
  211. form_dial    EQU $33090100
  212. form_alert    EQU $34010101
  213. form_error    EQU $35010100
  214. form_center    EQU $36000501
  215. form_keybd    EQU $37030301
  216. form_button    EQU $38020201
  217.  
  218. graf_rubberbox    EQU $46040300
  219. graf_rubbox    EQU $46040300
  220. graf_dragbox    EQU $47080300
  221. graf_movebox    EQU $48060100
  222. graf_mbox    EQU $48060100
  223. graf_growbox    EQU $49080100
  224. graf_shrinkbox    EQU $4A080100
  225. graf_watchbox    EQU $4B040101
  226. graf_slidebox    EQU $4C030101
  227. graf_handle    EQU $4D000500
  228. graf_mouse    EQU $4E010101
  229. graf_mkstate    EQU $4F000500
  230.  
  231. srcp_read    EQU $50000101
  232. srcp_write    EQU $51000101
  233. scrp_clear    EQU $52000100    ;GEM 2.0
  234.  
  235. fsel_input    EQU $5A000202
  236. fsel_exinput    EQU $5B000203    ;TOS 1.4
  237.  
  238. wind_create    EQU $64050100
  239. wind_open    EQU $65050100
  240. wind_close    EQU $66010100
  241. wind_delete    EQU $67010100
  242. wind_get    EQU $68020500
  243. wind_set    EQU $69060100
  244. wind_find    EQU $6A020100
  245. wind_update    EQU $6B010100
  246. wind_calc    EQU $6C060500
  247. wind_new    EQU $6D000000    ;TOS 1.4
  248.  
  249. rsrc_load    EQU $6E000101
  250. rsrc_free    EQU $6F000100
  251. rsrc_gaddr    EQU $70020100
  252. rsrc_saddr    EQU $71020101
  253. rsrc_obfix    EQU $72010101
  254.  
  255. shel_read    EQU $78000102
  256. shel_write    EQU $79030102
  257. shel_get    EQU $7A010101
  258. shel_put    EQU $7B010101
  259. shel_find    EQU $7C000101
  260. shel_envrn    EQU $7D000102
  261. shel_rdef    EQU $7E000102    ;GEM 2.0
  262. shel_wdef    EQU $7F000002    ;GEM 2.0
  263.  
  264. xgrf_stepcalc    EQU $82060600    ;GEM 2.0
  265. xgrf_2box    EQU $83090100    ;GEM 2.0
  266.  
  267. ; Die Messages des AES
  268. MN_SELECTED    EQU 10        ;Menüeintrag angewählt
  269. WM_REDRAW    EQU 20        ;Teil eines Windows muß neu gezeichnet werden
  270. WM_TOPPED    EQU 21        ;Window ist nun das aktuelle Fenster
  271. WM_CLOSED    EQU 22        ;Window soll geschlossen werden
  272. WM_FULLED    EQU 23        ;Window soll auf max.Größe gebracht werden
  273. WM_ARROWED    EQU 24        ;Scollbalken angeklickt
  274. WM_HSLID    EQU 25        ;Der horizontale Slider wurde bewegt
  275. WM_VSLID    EQU 26        ;Der vertikale Slider wurde bewegt
  276. WM_SIZED    EQU 27        ;Die Größe des Windows wurde geändert
  277. WM_MOVED    EQU 28        ;Das Window wurde bewegt
  278. WM_NEWTOP    EQU 29        ;Das Fenster wurde aktiviert (siehe WM_TOPPED)
  279. WM_UNTOPPED    EQU 30        ;Der Fenster wird gleich inaktiv (erst ab GEM 2.0!)
  280. AC_OPEN     EQU 40        ;Ein Acc wurde angeklickt.(30 bzw. 31 ist FALSCH!)
  281. AC_CLOSE    EQU 41        ;Prg wurde beendet, ACC soll seinen Speicher freigeben.
  282. CT_UPDATE    EQU 50
  283. CT_MOVE     EQU 51        ;Funktion unbekannt
  284. CT_NEWTOP    EQU 52
  285.  
  286. ; WM_ARROWED angeklickt (nun die genauere Definition)
  287. WA_UPPAGE    EQU 0        ;Balken oberhalb des Sliders
  288. WA_DNPAGE    EQU 1        ;Balken unterhalb des Sliders
  289. WA_UPLINE    EQU 2        ;Pfeil nach oben
  290. WA_DNLINE    EQU 3        ;Pfeil nach unten
  291. WA_LFPAGE    EQU 4        ;Balken links vom Slider
  292. WA_RTPAGE    EQU 5        ;Balken rechts vom Slider
  293. WA_LFLINE    EQU 6        ;Pfeil nach links
  294. WA_RTLINE    EQU 7        ;und Pfeil nach rechts
  295.  
  296. ; Die Objekttypen des Resource-Baumes
  297. G_BOX        EQU 20
  298. G_TEXT        EQU 21
  299. G_BOXTEXT    EQU 22
  300. G_IMAGE     EQU 23
  301. G_PROGDEF    EQU 24
  302. G_IBOX        EQU 25        ;Bitte in entsprechender Literatur nachschlagen
  303. G_BUTTON    EQU 26
  304. G_BOXCHAR    EQU 27
  305. G_STRING    EQU 28
  306. G_FTEXT     EQU 29
  307. G_FBOXTEXT    EQU 30
  308. G_ICON        EQU 31
  309. G_TITLE     EQU 32
  310.  
  311. ; Object-Flags bei einem Objekt
  312. NONE_FLG    EQU $00
  313. SELECTABLE_FLG    EQU $01
  314. DEFAULT_FLG    EQU $02
  315. EXIT_FLG    EQU $04
  316. EDITABLE_FLG    EQU $08
  317. RBUTTON_FLG    EQU $10     ;Bitte ebenfalls in der Literatur nachlesen
  318. LASTOB_FLG    EQU $20
  319. TOUCHEXIT_FLG    EQU $40
  320. HIDETREE_FLG    EQU $80
  321. INDIRECT_FLG    EQU $0100
  322.  
  323. ; Objekt-Status bei einem Objekt
  324. NORMAL        EQU $00
  325. SELECTED    EQU $01
  326. CROSSED     EQU $02
  327. CHECKED     EQU $04     ;s.o.
  328. DISABLED    EQU $08
  329. OUTLINED    EQU $10
  330. SHADOWED    EQU $20
  331.  
  332. ; Die einzelnen Bits bei evnt_multi()
  333. MU_KEYBD    EQU $01     ;Tastaturereignis
  334. MU_BUTTON    EQU $02     ;Maustastenereignis
  335. MU_M1        EQU $04     ;1.Mausereignis
  336. MU_M2        EQU $08     ;2.Mausereignis
  337. MU_MESAG    EQU $10     ;Message des AES
  338. MU_TIMER    EQU $20     ;Timer-Ereignis
  339.  
  340. ; form_dial()
  341. FMD_START    EQU $00     ;Bildschirmhintergrund reservieren
  342. FMD_GROW    EQU $01     ;Ausdehnende Box zeichnen
  343. FMD_SHRINK    EQU $02     ;Schrumpfende Box zeichnen
  344. FMD_FINISH    EQU $03     ;Bildschirmbereich wieder freigeben
  345.  
  346. ; graf_mouse()
  347. ARROW        EQU $00
  348. TEXT_CRSR    EQU $01
  349. HOURGLASS    EQU $02
  350. BUSYBEE     EQU $02
  351. POINT_HAND    EQU $03
  352. FLAT_HAND    EQU $04
  353. THIN_CROSS    EQU $05
  354. THICK_CROSS    EQU $06
  355. OUTL_CROSS    EQU $07
  356. USER_DEF    EQU $FF
  357. M_OFF        EQU $0100
  358. M_ON        EQU $0101
  359.  
  360. ; Parameter bei wind_create()
  361. WI_NAME     EQU $01
  362. WI_CLOSE    EQU $02
  363. WI_FULL     EQU $04
  364. WI_MOVE     EQU $08
  365. WI_INFO     EQU $10
  366. WI_SIZE     EQU $20
  367. WI_UPARROW    EQU $40
  368. WI_DNARROW    EQU $80
  369. WI_VSLIDE    EQU $0100
  370. WI_LFARROW    EQU $0200
  371. WI_RARROW    EQU $0400
  372. WI_HSLIDE    EQU $0800
  373.  
  374. ; Parameter bei wind_get() & wind_set()
  375. WF_KIND     EQU 1
  376. WF_NAME     EQU 2
  377. WF_INFO     EQU 3
  378. WF_WORKXYWH    EQU 4
  379. WF_CURRXYWH    EQU 5
  380. WF_PREVXYWH    EQU 6
  381. WF_FULLXYWH    EQU 7
  382. WF_HSLIDE    EQU 8
  383. WF_VSLIDE    EQU 9
  384. WF_TOP        EQU 10
  385. WF_FIRSTXYWH    EQU 11
  386. WF_NEXTXYWH    EQU 12
  387. WF_NEWDESK    EQU 14
  388. WF_HSLSIZE    EQU 15
  389. WF_VSLSIZE    EQU 16
  390.  
  391. ; wind_update()
  392. END_UPDATE    EQU 0
  393. BEG_UPDATE    EQU 1
  394. END_MCTRL    EQU 2
  395. BEG_MCTRL    EQU 3
  396.  
  397. ;************************************************************************
  398. ;* Die VDI-"Library"                            *
  399. ;* Wer näheres dazu wissen möchte, sollte sich im Profibuch von Sybex    *
  400. ;* die Informationen dazu besorgen.                    *
  401. ;************************************************************************
  402. ;1. Kontrollfunktionen
  403. v_opnwk     EQU $010B0000    ;Open workstation
  404. v_clswk     EQU $02     ;Close workstation
  405. v_opnvwk    EQU $640B0000    ;Open virtual screen workstation
  406. v_clsvwk    EQU $65     ;Close virtual screen workstation
  407. v_clrwk     EQU $03     ;Clear workstation
  408. v_updwk     EQU $04     ;Update workstation
  409. vst_load_fonts    EQU $77010000    ;Load fonts
  410. unload_fonts    EQU $78010000    ;Unload fonts
  411. vs_clip     EQU $81010002    ;Set clipping rectangle
  412. ;2. Ausgabefunktionen
  413. v_pline     EQU $06000000    ;Polyline (Byte 0=count(n))
  414. v_pmarker    EQU $07000000    ;Polymarker (Byte 0=count(n))
  415. v_gtext     EQU $08000001    ;Text (Byte 2=n)
  416. v_fillarea    EQU $09000000    ;Filled area (Byte 0=count(n))
  417. v_cellarray    EQU $0A000002    ;Cell array (Byte 2=n)
  418. v_contourfill    EQU $67010001    ;Contour fill
  419. vr_recfl    EQU $72000002    ;Fill rectangle
  420. v_bar        EQU $0B000102    ;Bar
  421. v_arc        EQU $0B020204    ;Arc
  422. v_pieslice    EQU $0B020304    ;Pie
  423. v_circle    EQU $0B000403    ;Circle
  424. v_ellipse    EQU $0B000502    ;Ellipse
  425. v_ellarc    EQU $0B020602    ;Elliptical arc
  426. v_ellpie    EQU $0B020702    ;Elliptical pie
  427. v_rbox        EQU $0B000802    ;Rounded rectangle
  428. v_rfbox     EQU $0B000902    ;Filled rounded rectangle
  429. v_justified    EQU $0B020A02    ;Justified graphics text (Byte 2=n+2)
  430. ;3. Attribut-Funktionen
  431. vswr_mode    EQU $20010000    ;Set writing mode
  432. vs_color    EQU $0E040000    ;Set color representation
  433. vsl_type    EQU $0F010000    ;Set polyline line type
  434. vsl_udsty    EQU $71010000    ;Set user-defined line style pattern
  435. vsl_width    EQU $10000001    ;Set polyline line width
  436. vsl_color    EQU $11010000    ;Set polyline color index
  437. vsl_ends    EQU $6C020000    ;Set polyline end styles
  438. vsm_type    EQU $12010000    ;Set polymarker type
  439. vsm_height    EQU $13000001    ;Set polymarker height
  440. vsm_color    EQU $14010000    ;Set polymarker color index
  441. vst_height    EQU $0C000001    ;Set character height, absolute mode
  442. vst_point    EQU $6B010000    ;Set character height, points mode
  443. vst_rotation    EQU $0D010000    ;Set character baseline vector
  444. vst_font    EQU $15010000    ;Set text face
  445. vst_color    EQU $16010000    ;Set graphic text color index
  446. vst_effects    EQU $6A010000    ;Set graphic text special effects
  447. vst_alignment    EQU $27020000    ;Set graphic text alignment
  448. vsf_interior    EQU $17010000    ;Set fill interior index
  449. vsf_style    EQU $18010000    ;Set fill style index
  450. vsf_color    EQU $19010000    ;Set fill color index
  451. vsf_perimeter    EQU $68010000    ;Set fill perimeter visibility
  452. vsf_udpat    EQU $70000000    ;Set user-defined fill pattern (Byte 2=16*planes)
  453. ;4. Rasteroperationen
  454. vro_cpyfm    EQU $6D010004    ;Copy raster, opaque
  455. vrt_cpyfm    EQU $79030004    ;Copy raster, transparent
  456. vr_trnfm    EQU $6E000000    ;Transform form
  457. v_get_pixel    EQU $69000001    ;Get pixel
  458. ;5. Eingabefunktionen
  459. vsin_mode    EQU $21020000    ;Set input mode
  460. vrq_locator    EQU $1C000001    ;Input locator, request mode
  461. vsm_locator    EQU $1C000001    ;Input locator, sample mode
  462. vrq_valuator    EQU $1D010000    ;Input valuator, request mode
  463. vsm_valuator    EQU $1D010000    ;Input valuator, sample mode
  464. vrq_choice    EQU $1E010000    ;Input choice, request mode
  465. vsm_choice    EQU $1E010000    ;Input choice, sample mode
  466. vrq_string    EQU $1F020001    ;Input string, request mode
  467. vsm_string    EQU $1F020001    ;Input string, sample mode
  468. vsc_form    EQU $6F250000    ;Set mouse form
  469. vex_timv    EQU $76     ;Exchange timer interrupt vector
  470. v_show_c    EQU $7A010000    ;Show cursor
  471. v_hide_c    EQU $7B     ;Hide cursor
  472. vq_mouse    EQU $7C     ;Sample mouse button state
  473. vex_butv    EQU $7D     ;Exchange button change vector
  474. vex_motv    EQU $7E     ;Exchange mouse movement vector
  475. vex_curv    EQU $7F     ;Exchange cursor change vector
  476. vq_key_s    EQU $80000000    ;Sample keyboard state information
  477. ;6. Auskunftsfunktionen
  478. vq_extnd    EQU $66010000    ;Extended inquire function
  479. vq_color    EQU $1A020000    ;Inquire color representation
  480. vql_attributes    EQU $23     ;Inquire current polyline attributes
  481. vqm_attributes    EQU $24     ;Inquire current polymarker attributes
  482. vqf_attributes    EQU $25     ;Inquire current fill area attributes
  483. vqt_attributes    EQU $26     ;Inquire current graphic text attributes
  484. vqt_extent    EQU $74     ;Inquire text extent (Byte 2=n)
  485. vqt_width    EQU $75010000    ;Inquire character cell width
  486. vqt_name    EQU $82010000    ;Inquire face name and index
  487. vq_cellarray    EQU $1B000002    ;Inquire cell array
  488. vqin_mode    EQU $73010000    ;Inquire input mode
  489. vqt_fontinfo    EQU $83000000    ;Inquire current face information
  490. vqt_justified    EQU $84020002    ;Inquire just.graph.text (Byte 2=n+2) GEM 2.0!
  491. ;7. Escapes
  492. vq_chcells    EQU $05000100    ;Inquire addressable alpha character cells
  493. v_exit_cur    EQU $05000200    ;Exit alpha mode
  494. v_enter_cur    EQU $05000300    ;Enter alpha mode
  495. v_curup     EQU $05000400    ;Alpha cursor up
  496. v_curdown    EQU $05000500    ;Alpha cursor down
  497. v_curright    EQU $05000600    ;Alpha cursor right
  498. c_curleft    EQU $05000700    ;Alpha cursor left
  499. v_curhome    EQU $05000800    ;Home alpha cursor
  500. v_eeos        EQU $05000900    ;Erase to end of alpha screen
  501. v_eeol        EQU $05000A00    ;Erase to end of alpha text line
  502. v_curaddress    EQU $05020B00    ;Direct alpha cursor address
  503. v_curtext    EQU $05000C00    ;Output cursor addressable alpha text (Byte 2=n)
  504. v_rvon        EQU $05000D00    ;Reverse video on
  505. v_rvoff     EQU $05000E00    ;Reverse video off
  506. vq_curaddress    EQU $05000F00    ;Inquire current alpha cursor address
  507. vq_tabstatus    EQU $05001000    ;Inquire tablet status
  508. v_hardcopy    EQU $05001100    ;Hardcopy
  509. v_dspcur    EQU $05001201    ;Place graphic cursor at location
  510. v_rmcur     EQU $05001300    ;Remove last graphic cursor
  511. v_form_adv    EQU $05001400    ;Form advance
  512. v_output_window EQU $05001500    ;Output window
  513. v_clear_disp_list EQU $05001600 ;Clear display list
  514. v_bit_image    EQU $05051702    ;Output bit image file (Byte 2=n+5)
  515. vq_scan     EQU $05001800    ;Inquire printer scan
  516. v_alpha_text    EQU $05001900    ;Output alpha text (Byte 2=n)
  517. vs_palette    EQU $05013C00    ;Select palette
  518. v_sound     EQU $05023D00    ;Generate specified tone
  519. vs_mute     EQU $05013E00    ;Set/clear tone muting flag
  520. vt_resolution    EQU $05025100    ;Set tablet axis resolution in lines/inch
  521. vt_axis     EQU $05025200    ;Set table axis resolution in lines
  522. vt_origin    EQU $05025300    ;Set tablet x and y origin
  523. vq_tdimensions    EQU $05005400    ;Return tablet x and y dimensions
  524. vt_alignment    EQU $05025500    ;Set tablet alignment
  525. vsp_film    EQU $05025B00    ;Set camera file type and exposure time
  526. vqp_filename    EQU $05015C00    ;Inquire camera file name
  527. vsc_expose    EQU $05015D00    ;Disable or enable file exposure for frame preview
  528. v_meta_extents    EQU $05006202    ;Update metafile extents
  529. v_write_meta    EQU $05006300    ;Write metafile item (Byte 0=num_ptsin, Byte 2=num_intin)
  530. vm_pagesize    EQU $05036300    ;Physical page size
  531. wm_coords    EQU $05056300    ;Coordinate window
  532. vm_filename    EQU $05006400    ;Change gem vdi filename (Byte 2=n)
  533. v_offset    EQU $05016500    ;Set line offset
  534. v_fontinit    EQU $05026600    ;Init system font
  535. ;v_escape2000(times) -> (klappt mit dem Konzept leider nicht...)
  536.         ENDPART
  537.         END
  538.